/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / Prog / D-G / DropInfo.sit / DropInfo ƒ / DI_P / DropShell.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 44 72 6f 70 53 68 | 65 6c 6c 2e 70 00 00 00 |..DropSh|ell.p...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 d7 00 | 00 01 ac a5 6c 4a 04 a5 |........|....lJ..|
|00000060| 6c 4a 04 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |lJ......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 97 7a 00 00 |........|.....z..|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000000d0| 2a 2a 0d 2a 2a 20 20 50 | 72 6f 6a 65 63 74 20 4e |**.**  P|roject N|
|000000e0| 61 6d 65 3a 09 44 72 6f | 70 53 68 65 6c 6c 0d 2a |ame:.Dro|pShell.*|
|000000f0| 2a 20 20 20 20 20 46 69 | 6c 65 20 4e 61 6d 65 3a |*     Fi|le Name:|
|00000100| 09 44 72 6f 70 53 68 65 | 6c 6c 2e 70 0d 2a 2a 0d |.DropShe|ll.p.**.|
|00000110| 2a 2a 20 20 20 44 65 73 | 63 72 69 70 74 69 6f 6e |**   Des|cription|
|00000120| 3a 09 4d 61 69 6e 20 61 | 70 70 6c 69 63 61 74 69 |:.Main a|pplicati|
|00000130| 6f 6e 20 63 6f 64 65 20 | 66 6f 72 20 74 68 65 20 |on code |for the |
|00000140| 44 72 6f 70 53 68 65 6c | 6c 0d 2a 2a 0d 2a 2a 2a |DropShel|l.**.***|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 2a 2a 20 |********|****.** |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 41 20 | 55 20 54 20 48 20 4f 20 |      A |U T H O |
|000001c0| 52 20 20 20 49 20 44 20 | 45 20 4e 20 54 20 49 20 |R   I D |E N T I |
|000001d0| 54 20 59 0d 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |T Y.****|********|
|000001e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 0d 2a 2a 0d 2a | 2a 09 49 6e 69 74 69 61 |***.**.*|*.Initia|
|00000230| 6c 73 09 4e 61 6d 65 0d | 2a 2a 09 2d 2d 2d 2d 2d |ls.Name.|**.-----|
|00000240| 2d 2d 2d 09 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |---.----|--------|
|00000250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000270| 2d 2d 2d 0d 2a 2a 09 4c | 44 52 09 09 09 4c 65 6f |---.**.L|DR...Leo|
|00000280| 6e 61 72 64 20 52 6f 73 | 65 6e 74 68 6f 6c 0d 2a |nard Ros|enthol.*|
|00000290| 2a 0d 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.******|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 0d 2a 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |*.**    |        |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 52 20 45 20 56 20 |        |  R E V |
|00000300| 49 20 53 20 49 20 4f 20 | 4e 20 20 20 48 20 49 20 |I S I O |N   H I |
|00000310| 53 20 54 20 4f 20 52 20 | 59 0d 2a 2a 2a 2a 2a 2a |S T O R |Y.******|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 2a 2a 0d 2a 2a 09 |********|*.**.**.|
|00000370| 20 20 44 61 74 65 09 09 | 54 69 6d 65 09 41 75 74 |  Date..|Time.Aut|
|00000380| 68 6f 72 09 44 65 73 63 | 72 69 70 74 69 6f 6e 0d |hor.Desc|ription.|
|00000390| 2a 2a 09 2d 2d 2d 2d 2d | 2d 2d 2d 09 2d 2d 2d 2d |**.-----|---.----|
|000003a0| 2d 09 2d 2d 2d 2d 2d 2d | 09 2d 2d 2d 2d 2d 2d 2d |-.------|.-------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 0d 2a | 2a 09 31 32 2f 30 39 2f |------.*|*.12/09/|
|000003e0| 39 31 09 09 09 4c 44 52 | 09 09 41 64 64 65 64 20 |91...LDR|..Added |
|000003f0| 73 75 70 70 6f 72 74 20 | 66 6f 72 20 6e 65 77 20 |support |for new |
|00000400| 22 53 65 6c 65 63 74 20 | 46 69 6c 65 c9 22 20 6d |"Select |File." m|
|00000410| 65 6e 75 20 69 74 65 6d | 0d 2a 2a 09 09 09 09 09 |enu item|.**.....|
|00000420| 09 09 09 51 75 69 74 20 | 6e 6f 77 20 73 65 6e 64 |...Quit |now send|
|00000430| 73 20 41 45 56 54 20 74 | 6f 20 73 65 6c 66 20 74 |s AEVT t|o self t|
|00000440| 6f 20 62 65 20 70 6f 6c | 69 74 69 63 61 6c 6c 79 |o be pol|itically|
|00000450| 20 63 6f 72 72 65 63 74 | 0d 2a 2a 09 09 09 09 09 | correct|.**.....|
|00000460| 09 09 09 41 64 64 65 64 | 20 73 75 70 70 6f 72 74 |...Added| support|
|00000470| 20 66 6f 72 20 74 68 65 | 20 6e 65 77 20 67 53 70 | for the| new gSp|
|00000480| 6c 61 73 68 53 63 72 65 | 65 6e 0d 2a 2a 09 31 31 |lashScre|en.**.11|
|00000490| 2f 32 34 2f 39 31 09 09 | 09 4c 44 52 09 09 41 64 |/24/91..|.LDR..Ad|
|000004a0| 64 65 64 20 73 75 70 70 | 6f 72 74 20 66 6f 72 20 |ded supp|ort for |
|000004b0| 74 68 65 20 41 70 70 6c | 65 20 4d 65 6e 75 20 28 |the Appl|e Menu (|
|000004c0| 64 75 68 21 29 0d 2a 2a | 09 09 09 09 09 09 09 09 |duh!).**|........|
|000004d0| 4d 6f 76 65 64 20 43 65 | 6e 74 65 72 41 6c 65 72 |Moved Ce|nterAler|
|000004e0| 74 20 26 20 45 72 72 6f | 72 41 6c 65 72 74 20 74 |t & Erro|rAlert t|
|000004f0| 6f 20 44 53 55 74 69 6c | 73 0d 2a 2a 09 31 30 2f |o DSUtil|s.**.10/|
|00000500| 33 30 2f 39 31 09 09 09 | 4c 44 52 09 09 4d 6f 64 |30/91...|LDR..Mod|
|00000510| 69 66 69 65 64 20 55 53 | 45 53 20 63 6c 61 75 73 |ified US|ES claus|
|00000520| 65 20 66 6f 72 20 6e 65 | 77 20 69 6e 63 6c 75 64 |e for ne|w includ|
|00000530| 65 20 26 20 69 66 63 27 | 65 64 20 54 68 50 0d 2a |e & ifc'|ed ThP.*|
|00000540| 2a 09 31 30 2f 32 38 2f | 39 31 09 09 09 4c 44 52 |*.10/28/|91...LDR|
|00000550| 09 09 4f 66 66 69 63 69 | 61 6c 6c 79 20 72 65 6e |..Offici|ally ren|
|00000560| 61 6d 65 64 20 44 72 6f | 70 53 68 65 6c 6c 20 28 |amed Dro|pShell (|
|00000570| 66 72 6f 6d 20 51 75 69 | 63 6b 53 68 65 6c 6c 29 |from Qui|ckShell)|
|00000580| 0d 2a 2a 09 09 09 09 09 | 09 09 09 41 64 64 65 64 |.**.....|...Added|
|00000590| 20 61 20 62 75 6e 63 68 | 20 6f 66 20 63 6f 6d 6d | a bunch| of comm|
|000005a0| 65 6e 74 73 20 66 6f 72 | 20 63 6c 61 72 69 66 69 |ents for| clarifi|
|000005b0| 63 61 74 69 6f 6e 0d 2a | 2a 09 30 34 2f 30 39 2f |cation.*|*.04/09/|
|000005c0| 39 31 09 30 30 3a 30 32 | 09 4c 44 52 09 09 4f 72 |91.00:02|.LDR..Or|
|000005d0| 69 67 69 6e 61 6c 20 56 | 65 72 73 69 6f 6e 0d 2a |iginal V|ersion.*|
|000005e0| 2a 0d 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.******|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000630| 7d 0d 0d 50 52 4f 47 52 | 41 4d 20 44 72 6f 70 53 |}..PROGR|AM DropS|
|00000640| 68 65 6c 6c 3b 0d 0d 7b | 24 49 46 43 20 54 48 49 |hell;..{|$IFC THI|
|00000650| 4e 4b 5f 50 61 73 63 61 | 6c 7d 0d 09 55 53 45 53 |NK_Pasca|l}..USES|
|00000660| 0d 09 09 53 63 72 69 70 | 74 2c 20 44 53 47 6c 6f |...Scrip|t, DSGlo|
|00000670| 62 61 6c 73 2c 20 44 53 | 55 74 69 6c 73 2c 20 44 |bals, DS|Utils, D|
|00000680| 53 55 73 65 72 50 72 6f | 63 73 2c 20 44 53 41 70 |SUserPro|cs, DSAp|
|00000690| 70 6c 65 45 76 65 6e 74 | 73 3b 09 7b 6a 75 73 74 |pleEvent|s;.{just|
|000006a0| 20 74 68 65 20 44 72 6f | 70 53 68 65 6c 6c 20 66 | the Dro|pShell f|
|000006b0| 69 6c 65 73 7d 0d 7b 24 | 45 4c 53 45 43 7d 0d 09 |iles}.{$|ELSEC}..|
|000006c0| 55 53 45 53 0d 09 7b 20 | 46 69 72 73 74 20 6c 6f |USES..{ |First lo|
|000006d0| 61 64 20 73 74 61 6e 64 | 61 72 64 20 69 6e 74 65 |ad stand|ard inte|
|000006e0| 72 66 61 63 65 20 66 69 | 6c 65 73 7d 0d 09 09 4d |rface fi|les}...M|
|000006f0| 65 6d 54 79 70 65 73 2c | 20 51 75 69 63 6b 44 72 |emTypes,| QuickDr|
|00000700| 61 77 2c 20 0d 0d 09 7b | 20 4e 6f 77 20 69 6e 63 |aw, ...{| Now inc|
|00000710| 6c 75 64 65 20 74 68 65 | 20 73 74 75 66 66 20 66 |lude the| stuff f|
|00000720| 72 6f 6d 20 4f 53 49 6e | 74 66 20 7d 0d 09 09 4f |rom OSIn|tf }...O|
|00000730| 53 49 6e 74 66 2c 20 0d | 0d 09 7b 20 4e 6f 77 20 |SIntf, .|..{ Now |
|00000740| 49 6e 63 6c 75 64 65 20 | 74 68 65 20 73 74 75 66 |Include |the stuf|
|00000750| 66 20 66 72 6f 6d 20 54 | 6f 6f 6c 49 6e 74 66 2e |f from T|oolIntf.|
|00000760| 70 20 7d 0d 09 09 54 6f | 6f 6c 49 6e 74 66 2c 20 |p }...To|olIntf, |
|00000770| 50 61 63 6b 61 67 65 73 | 2c 20 47 65 73 74 61 6c |Packages|, Gestal|
|00000780| 74 45 71 75 2c 20 0d 0d | 09 7b 20 54 68 65 6e 20 |tEqu, ..|.{ Then |
|00000790| 61 6e 79 20 4f 54 48 45 | 52 20 54 6f 6f 6c 62 6f |any OTHE|R Toolbo|
|000007a0| 78 20 69 6e 74 65 72 66 | 61 63 65 73 2e 2e 2e 20 |x interf|aces... |
|000007b0| 7d 0d 09 09 46 69 6c 65 | 73 2c 20 41 6c 69 61 73 |}...File|s, Alias|
|000007c0| 65 73 2c 20 41 70 70 6c | 65 45 76 65 6e 74 73 2c |es, Appl|eEvents,|
|000007d0| 0d 0d 09 7b 20 41 6e 64 | 20 66 69 6e 61 6c 6c 79 |...{ And| finally|
|000007e0| 20 61 6e 79 20 66 69 6c | 65 73 20 66 72 6f 6d 20 | any fil|es from |
|000007f0| 44 72 6f 70 53 68 65 6c | 6c 20 7d 0d 09 09 44 53 |DropShel|l }...DS|
|00000800| 47 6c 6f 62 61 6c 73 2c | 20 44 53 55 74 69 6c 73 |Globals,| DSUtils|
|00000810| 2c 20 44 53 55 73 65 72 | 50 72 6f 63 73 2c 20 44 |, DSUser|Procs, D|
|00000820| 53 41 70 70 6c 65 45 76 | 65 6e 74 73 3b 0d 7b 24 |SAppleEv|ents;.{$|
|00000830| 45 4e 44 43 20 54 48 49 | 4e 4b 5f 50 61 73 63 61 |ENDC THI|NK_Pasca|
|00000840| 6c 7d 0d 0d 7b 43 4f 44 | 45 20 42 45 47 49 4e 53 |l}..{COD|E BEGINS|
|00000850| 20 48 45 52 45 7d 0d 0d | 7b 24 49 46 43 20 54 48 | HERE}..|{$IFC TH|
|00000860| 49 4e 4b 5f 50 61 73 63 | 61 6c 7d 0d 7b 24 45 4c |INK_Pasc|al}.{$EL|
|00000870| 53 45 43 7d 0d 09 7b 0d | 09 09 54 68 69 73 20 72 |SEC}..{.|..This r|
|00000880| 6f 75 74 69 6e 65 20 69 | 73 20 61 75 74 6f 6d 61 |outine i|s automa|
|00000890| 74 69 63 61 6c 6c 79 20 | 6c 69 6e 6b 65 64 20 69 |tically |linked i|
|000008a0| 6e 20 62 79 20 74 68 65 | 20 4d 50 57 20 4c 69 6e |n by the| MPW Lin|
|000008b0| 6b 65 72 2e 20 0d 09 09 | 54 68 69 73 20 65 78 74 |ker. ...|This ext|
|000008c0| 65 72 6e 61 6c 20 72 65 | 66 65 72 65 6e 63 65 20 |ernal re|ference |
|000008d0| 74 6f 20 69 74 20 69 73 | 20 64 6f 6e 65 20 73 6f |to it is| done so|
|000008e0| 20 74 68 61 74 20 77 65 | 20 63 61 6e 20 75 6e 6c | that we| can unl|
|000008f0| 6f 61 64 20 69 74 73 20 | 73 65 67 6d 65 6e 74 2c |oad its |segment,|
|00000900| 20 25 41 35 49 6e 69 74 | 2e 0d 09 7d 0d 09 50 52 | %A5Init|...}..PR|
|00000910| 4f 43 45 44 55 52 45 20 | 5f 44 61 74 61 49 6e 69 |OCEDURE |_DataIni|
|00000920| 74 3b 20 45 58 54 45 52 | 4e 41 4c 3b 0d 7b 24 45 |t; EXTER|NAL;.{$E|
|00000930| 4e 44 43 20 54 48 49 4e | 4b 5f 50 61 73 63 61 6c |NDC THIN|K_Pascal|
|00000940| 7d 0d 0d 09 7b 53 69 6d | 70 6c 65 20 72 6f 75 74 |}...{Sim|ple rout|
|00000950| 69 6e 65 20 69 6e 73 74 | 61 6c 6c 65 64 20 62 79 |ine inst|alled by|
|00000960| 20 49 6e 69 74 44 69 61 | 6c 6f 67 73 20 66 6f 72 | InitDia|logs for|
|00000970| 20 74 68 65 20 52 65 73 | 75 6d 65 20 62 75 74 74 | the Res|ume butt|
|00000980| 6f 6e 20 69 6e 20 42 6f | 6d 62 20 62 6f 78 65 73 |on in Bo|mb boxes|
|00000990| 7d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 50 61 6e |}..PROCE|DURE Pan|
|000009a0| 69 63 3b 0d 09 42 45 47 | 49 4e 0d 09 09 45 78 69 |ic;..BEG|IN...Exi|
|000009b0| 74 54 6f 53 68 65 6c 6c | 3b 0d 09 45 4e 44 3b 0d |tToShell|;..END;.|
|000009c0| 0d 09 7b 24 53 20 49 6e | 69 74 69 61 6c 69 7a 65 |..{$S In|itialize|
|000009d0| 7d 0d 09 7b 4e 6f 74 68 | 69 6e 67 20 73 70 65 63 |}..{Noth|ing spec|
|000009e0| 69 61 6c 20 68 65 72 65 | 2c 20 6a 75 73 74 20 69 |ial here|, just i|
|000009f0| 6e 69 74 74 69 6e 67 20 | 74 68 65 20 74 6f 6f 6c |nitting |the tool|
|00000a00| 62 6f 78 7d 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |box}..PR|OCEDURE |
|00000a10| 49 6e 69 74 54 6f 6f 6c | 62 6f 78 3b 0d 09 42 45 |InitTool|box;..BE|
|00000a20| 47 49 4e 0d 7b 24 49 46 | 43 20 54 48 49 4e 4b 5f |GIN.{$IF|C THINK_|
|00000a30| 50 61 73 63 61 6c 7d 0d | 7b 24 45 4c 53 45 43 7d |Pascal}.|{$ELSEC}|
|00000a40| 0d 09 09 55 6e 6c 6f 61 | 64 53 65 67 28 40 5f 44 |...Unloa|dSeg(@_D|
|00000a50| 61 74 61 49 6e 69 74 29 | 3b 09 7b 77 65 20 6c 6f |ataInit)|;.{we lo|
|00000a60| 76 65 20 79 6f 75 20 4d | 50 57 21 7d 0d 7b 24 45 |ve you M|PW!}.{$E|
|00000a70| 4e 44 43 20 54 48 49 4e | 4b 5f 50 61 73 63 61 6c |NDC THIN|K_Pascal|
|00000a80| 7d 0d 0d 09 09 49 6e 69 | 74 47 72 61 66 28 40 74 |}....Ini|tGraf(@t|
|00000a90| 68 65 50 6f 72 74 29 3b | 0d 09 09 49 6e 69 74 46 |hePort);|...InitF|
|00000aa0| 6f 6e 74 73 3b 0d 09 09 | 49 6e 69 74 57 69 6e 64 |onts;...|InitWind|
|00000ab0| 6f 77 73 3b 0d 09 09 49 | 6e 69 74 4d 65 6e 75 73 |ows;...I|nitMenus|
|00000ac0| 3b 0d 09 09 54 45 49 6e | 69 74 3b 0d 09 09 49 6e |;...TEIn|it;...In|
|00000ad0| 69 74 44 69 61 6c 6f 67 | 73 28 40 50 61 6e 69 63 |itDialog|s(@Panic|
|00000ae0| 29 3b 0d 09 09 49 6e 69 | 74 43 75 72 73 6f 72 3b |);...Ini|tCursor;|
|00000af0| 0d 09 09 46 6c 75 73 68 | 45 76 65 6e 74 73 28 65 |...Flush|Events(e|
|00000b00| 76 65 72 79 45 76 65 6e | 74 2c 20 30 29 3b 0d 09 |veryEven|t, 0);..|
|00000b10| 09 0d 09 09 7b 68 6f 77 | 20 61 62 6f 75 74 20 73 |....{how| about s|
|00000b20| 6f 6d 65 20 6d 65 6d 6f | 72 79 20 66 75 6e 21 7d |ome memo|ry fun!}|
|00000b30| 0d 09 09 4d 6f 72 65 4d | 61 73 74 65 72 73 3b 0d |...MoreM|asters;.|
|00000b40| 09 09 4d 6f 72 65 4d 61 | 73 74 65 72 73 3b 09 7b |..MoreMa|sters;.{|
|00000b50| 74 77 6f 20 73 68 6f 75 | 6c 64 20 62 65 20 65 6e |two shou|ld be en|
|00000b60| 6f 75 67 68 21 7d 0d 09 | 45 4e 44 3b 0d 09 0d 09 |ough!}..|END;....|
|00000b70| 7b 0d 09 09 4c 65 74 27 | 73 20 73 65 74 75 70 20 |{...Let'|s setup |
|00000b80| 74 68 6f 73 65 20 67 6c | 6f 62 61 6c 20 76 61 72 |those gl|obal var|
|00000b90| 69 61 62 6c 65 73 20 74 | 68 61 74 20 74 68 65 20 |iables t|hat the |
|00000ba0| 44 72 6f 70 53 68 65 6c | 6c 20 75 73 65 73 2e 0d |DropShel|l uses..|
|00000bb0| 09 09 0d 09 09 49 66 20 | 79 6f 75 20 61 64 64 20 |.....If |you add |
|00000bc0| 61 6e 79 20 67 6c 6f 62 | 61 6c 73 20 66 6f 72 20 |any glob|als for |
|00000bd0| 79 6f 75 72 20 6f 77 6e | 20 75 73 65 2c 0d 09 09 |your own| use,...|
|00000be0| 69 6e 69 74 20 74 68 65 | 6d 20 69 6e 20 74 68 65 |init the|m in the|
|00000bf0| 20 49 6e 69 74 55 73 65 | 72 47 6c 6f 62 61 6c 73 | InitUse|rGlobals|
|00000c00| 20 72 6f 75 74 69 6e 65 | 20 69 6e 20 44 53 55 73 | routine| in DSUs|
|00000c10| 65 72 50 72 6f 63 73 2e | 63 0d 09 7d 0d 09 46 55 |erProcs.|c..}..FU|
|00000c20| 4e 43 54 49 4f 4e 20 49 | 6e 69 74 47 6c 6f 62 61 |NCTION I|nitGloba|
|00000c30| 6c 73 3a 20 42 6f 6f 6c | 65 61 6e 3b 0d 09 56 41 |ls: Bool|ean;..VA|
|00000c40| 52 0d 09 09 61 4c 6f 6e | 67 3a 20 6c 6f 6e 67 69 |R...aLon|g: longi|
|00000c50| 6e 74 3b 0d 09 42 45 47 | 49 4e 0d 09 09 67 44 6f |nt;..BEG|IN...gDo|
|00000c60| 6e 65 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 09 67 |ne := FA|LSE;...g|
|00000c70| 4f 41 70 70 65 64 20 3a | 3d 20 46 41 4c 53 45 3b |OApped :|= FALSE;|
|00000c80| 09 7b 41 73 73 75 6d 65 | 20 69 74 20 77 61 73 6e |.{Assume| it wasn|
|00000c90| 27 74 2c 20 73 69 6e 63 | 65 20 6d 6f 73 74 20 75 |'t, sinc|e most u|
|00000ca0| 73 65 72 73 20 77 6f 6e | 74 21 7d 0d 20 20 20 20 |sers won|t!}.    |
|00000cb0| 09 67 48 61 73 41 70 70 | 6c 65 45 76 65 6e 74 73 |.gHasApp|leEvents|
|00000cc0| 20 3a 3d 20 28 47 65 73 | 74 61 6c 74 28 67 65 73 | := (Ges|talt(ges|
|00000cd0| 74 61 6c 74 41 70 70 6c | 65 45 76 65 6e 74 73 41 |taltAppl|eEventsA|
|00000ce0| 74 74 72 2c 20 61 4c 6f | 6e 67 29 20 3d 20 6e 6f |ttr, aLo|ng) = no|
|00000cf0| 45 72 72 29 3b 0d 09 09 | 67 53 70 6c 61 73 68 53 |Err);...|gSplashS|
|00000d00| 63 72 65 65 6e 20 3a 3d | 20 4e 49 4c 3b 0d 09 09 |creen :=| NIL;...|
|00000d10| 0d 09 09 49 6e 69 74 47 | 6c 6f 62 61 6c 73 20 3a |...InitG|lobals :|
|00000d20| 3d 20 49 6e 69 74 55 73 | 65 72 47 6c 6f 62 61 6c |= InitUs|erGlobal|
|00000d30| 73 3b 09 7b 63 61 6c 6c | 20 74 68 65 20 75 73 65 |s;.{call| the use|
|00000d40| 72 20 70 72 6f 63 7d 0d | 09 45 4e 44 3b 0d 09 0d |r proc}.|.END;...|
|00000d50| 09 7b 0d 09 09 41 67 61 | 69 6e 2c 20 6e 6f 74 68 |.{...Aga|in, noth|
|00000d60| 69 6e 67 20 66 61 6e 63 | 79 2e 20 20 4a 75 73 74 |ing fanc|y.  Just|
|00000d70| 20 73 65 74 74 69 6e 67 | 20 75 70 20 74 68 65 20 | setting| up the |
|00000d80| 6d 65 6e 75 73 2e 0d 09 | 09 0d 09 09 49 66 20 79 |menus...|....If y|
|00000d90| 6f 75 20 61 64 64 20 61 | 6e 79 20 6d 65 6e 75 73 |ou add a|ny menus|
|00000da0| 20 74 6f 20 79 6f 75 72 | 20 44 72 6f 70 42 6f 78 | to your| DropBox|
|00000db0| 20 2d 20 69 6e 73 65 72 | 74 20 74 68 65 6d 20 68 | - inser|t them h|
|00000dc0| 65 72 65 21 0d 09 7d 0d | 09 50 52 4f 43 45 44 55 |ere!..}.|.PROCEDU|
|00000dd0| 52 45 20 53 65 74 55 70 | 4d 65 6e 75 73 3b 0d 09 |RE SetUp|Menus;..|
|00000de0| 42 45 47 49 4e 0d 09 09 | 67 41 70 70 6c 65 4d 65 |BEGIN...|gAppleMe|
|00000df0| 6e 75 20 3a 3d 20 47 65 | 74 4d 65 6e 75 28 6b 41 |nu := Ge|tMenu(kA|
|00000e00| 70 70 6c 65 4e 75 6d 29 | 3b 0d 09 09 41 64 64 52 |ppleNum)|;...AddR|
|00000e10| 65 73 4d 65 6e 75 28 67 | 41 70 70 6c 65 4d 65 6e |esMenu(g|AppleMen|
|00000e20| 75 2c 20 27 44 52 56 52 | 27 29 3b 0d 09 09 49 6e |u, 'DRVR|');...In|
|00000e30| 73 65 72 74 4d 65 6e 75 | 28 67 41 70 70 6c 65 4d |sertMenu|(gAppleM|
|00000e40| 65 6e 75 2c 20 30 29 3b | 0d 0d 09 09 67 46 69 6c |enu, 0);|....gFil|
|00000e50| 65 4d 65 6e 75 20 3a 3d | 20 47 65 74 4d 65 6e 75 |eMenu :=| GetMenu|
|00000e60| 28 6b 46 69 6c 65 4e 75 | 6d 29 3b 0d 09 09 49 6e |(kFileNu|m);...In|
|00000e70| 73 65 72 74 4d 65 6e 75 | 28 67 46 69 6c 65 4d 65 |sertMenu|(gFileMe|
|00000e80| 6e 75 2c 20 30 29 3b 0d | 09 09 44 72 61 77 4d 65 |nu, 0);.|..DrawMe|
|00000e90| 6e 75 42 61 72 3b 0d 09 | 45 4e 44 3b 0d 09 0d 09 |nuBar;..|END;....|
|00000ea0| 7b 0d 09 09 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |{...This| routine|
|00000eb0| 20 69 73 20 63 61 6c 6c | 65 64 20 64 75 72 69 6e | is call|ed durin|
|00000ec0| 67 20 73 74 61 72 74 75 | 70 20 74 6f 20 64 69 73 |g startu|p to dis|
|00000ed0| 70 6c 61 79 20 61 20 73 | 70 6c 61 73 68 20 73 63 |play a s|plash sc|
|00000ee0| 72 65 65 6e 2e 0d 09 09 | 0d 09 09 54 68 69 73 20 |reen....|...This |
|00000ef0| 77 61 73 20 72 65 63 6f | 6d 6d 65 6e 64 20 62 79 |was reco|mmend by|
|00000f00| 20 74 68 65 20 42 6c 75 | 65 20 54 65 61 6d 20 48 | the Blu|e Team H|
|00000f10| 49 20 70 65 72 73 6f 6e | 2c 20 4a 6f 68 6e 20 53 |I person|, John S|
|00000f20| 75 6c 6c 69 76 61 6e 2c | 20 77 68 6f 0d 09 09 66 |ullivan,| who...f|
|00000f30| 65 65 6c 73 20 74 68 61 | 74 20 61 6c 6c 20 61 70 |eels tha|t all ap|
|00000f40| 70 73 20 73 68 6f 75 6c | 64 20 64 69 73 70 6c 61 |ps shoul|d displa|
|00000f50| 79 20 73 6f 6d 65 74 68 | 69 6e 67 20 73 6f 20 74 |y someth|ing so t|
|00000f60| 68 61 74 20 75 73 65 72 | 73 20 63 61 6e 20 65 61 |hat user|s can ea|
|00000f70| 73 69 6c 79 0d 09 09 74 | 65 6c 6c 20 77 68 61 74 |sily...t|ell what|
|00000f80| 20 69 73 20 72 75 6e 6e | 69 6e 67 2c 20 61 6e 64 | is runn|ing, and|
|00000f90| 20 62 65 20 61 62 6c 65 | 20 74 6f 20 73 77 69 74 | be able| to swit|
|00000fa0| 63 68 20 62 79 20 63 6c | 69 63 6b 69 6e 67 2e 20 |ch by cl|icking. |
|00000fb0| 20 54 68 61 6e 6b 73 20 | 4a 6f 68 6e 21 0d 09 7d | Thanks |John!..}|
|00000fc0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 49 6e 73 74 |..PROCED|URE Inst|
|00000fd0| 61 6c 6c 53 70 6c 61 73 | 68 53 63 72 65 65 6e 3b |allSplas|hScreen;|
|00000fe0| 0d 09 43 4f 4e 53 54 0d | 09 09 77 69 6e 64 6f 77 |..CONST.|..window|
|00000ff0| 50 69 63 49 44 20 3d 20 | 31 32 38 3b 0d 09 56 41 |PicID = |128;..VA|
|00001000| 52 0d 09 09 70 69 63 48 | 3a 20 50 69 63 48 61 6e |R...picH|: PicHan|
|00001010| 64 6c 65 3b 0d 09 42 45 | 47 49 4e 0d 09 09 49 46 |dle;..BE|GIN...IF|
|00001020| 20 28 67 53 70 6c 61 73 | 68 53 63 72 65 65 6e 20 | (gSplas|hScreen |
|00001030| 3d 20 4e 49 4c 29 20 54 | 48 45 4e 20 7b 20 73 68 |= NIL) T|HEN { sh|
|00001040| 6f 77 20 74 68 65 20 73 | 70 6c 61 73 68 20 73 63 |ow the s|plash sc|
|00001050| 72 65 65 6e 20 77 69 6e | 64 6f 77 20 7d 0d 09 09 |reen win|dow }...|
|00001060| 42 45 47 49 4e 0d 09 09 | 09 70 69 63 48 20 3a 3d |BEGIN...|.picH :=|
|00001070| 20 47 65 74 50 69 63 74 | 75 72 65 28 77 69 6e 64 | GetPict|ure(wind|
|00001080| 6f 77 50 69 63 49 44 29 | 3b 0d 09 09 09 49 46 20 |owPicID)|;....IF |
|00001090| 70 69 63 48 20 3c 3e 20 | 4e 49 4c 20 54 48 45 4e |picH <> |NIL THEN|
|000010a0| 0d 09 09 09 42 45 47 49 | 4e 0d 09 09 09 09 67 53 |....BEGI|N.....gS|
|000010b0| 70 6c 61 73 68 53 63 72 | 65 65 6e 20 3a 3d 20 47 |plashScr|een := G|
|000010c0| 65 74 4e 65 77 57 69 6e | 64 6f 77 28 77 69 6e 64 |etNewWin|dow(wind|
|000010d0| 6f 77 50 69 63 49 44 2c | 20 4e 49 4c 2c 20 50 6f |owPicID,| NIL, Po|
|000010e0| 69 6e 74 65 72 28 2d 31 | 29 29 3b 0d 09 09 09 09 |inter(-1|));.....|
|000010f0| 49 46 20 67 53 70 6c 61 | 73 68 53 63 72 65 65 6e |IF gSpla|shScreen|
|00001100| 20 3c 3e 20 4e 49 4c 20 | 54 48 45 4e 0d 09 09 09 | <> NIL |THEN....|
|00001110| 09 42 45 47 49 4e 0d 09 | 09 09 09 09 53 65 74 57 |.BEGIN..|....SetW|
|00001120| 69 6e 64 6f 77 50 69 63 | 28 67 53 70 6c 61 73 68 |indowPic|(gSplash|
|00001130| 53 63 72 65 65 6e 2c 20 | 70 69 63 48 29 3b 0d 09 |Screen, |picH);..|
|00001140| 09 09 09 09 53 68 6f 77 | 57 69 6e 64 6f 77 28 67 |....Show|Window(g|
|00001150| 53 70 6c 61 73 68 53 63 | 72 65 65 6e 29 3b 0d 09 |SplashSc|reen);..|
|00001160| 09 09 09 45 4e 44 3b 0d | 09 09 09 45 4e 44 3b 0d |...END;.|...END;.|
|00001170| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 3b 0d 0d 7b 24 |..END;..|END;..{$|
|00001180| 53 20 4d 61 69 6e 7d 0d | 0d 7b 2a 2a 20 53 74 61 |S Main}.|.{** Sta|
|00001190| 6e 64 61 72 64 20 45 76 | 65 6e 74 20 48 61 6e 64 |ndard Ev|ent Hand|
|000011a0| 6c 69 6e 67 20 72 6f 75 | 74 69 6e 65 73 20 2a 2a |ling rou|tines **|
|000011b0| 7d 0d 09 50 52 4f 43 45 | 44 55 52 45 20 53 68 6f |}..PROCE|DURE Sho|
|000011c0| 77 41 62 6f 75 74 3b 0d | 09 56 41 52 0d 09 09 69 |wAbout;.|.VAR...i|
|000011d0| 74 65 6d 48 69 74 3a 20 | 69 6e 74 65 67 65 72 3b |temHit: |integer;|
|000011e0| 0d 09 42 45 47 49 4e 0d | 09 09 69 74 65 6d 48 69 |..BEGIN.|..itemHi|
|000011f0| 74 20 3a 3d 20 41 6c 65 | 72 74 28 31 32 38 2c 20 |t := Ale|rt(128, |
|00001200| 4e 49 4c 29 3b 0d 09 45 | 4e 44 3b 0d 09 0d 09 50 |NIL);..E|ND;....P|
|00001210| 52 4f 43 45 44 55 52 45 | 20 44 6f 4d 65 6e 75 28 |ROCEDURE| DoMenu(|
|00001220| 72 65 74 56 61 6c 3a 20 | 6c 6f 6e 67 69 6e 74 29 |retVal: |longint)|
|00001230| 3b 0d 09 56 41 52 0d 09 | 09 6d 65 6e 75 49 44 2c |;..VAR..|.menuID,|
|00001240| 20 69 74 65 6d 49 44 3a | 20 69 6e 74 65 67 65 72 | itemID:| integer|
|00001250| 3b 0d 09 09 69 74 65 6d | 53 74 72 3a 20 53 74 72 |;...item|Str: Str|
|00001260| 32 35 35 3b 0d 09 09 72 | 65 66 4e 75 6d 3a 20 69 |255;...r|efNum: i|
|00001270| 6e 74 65 67 65 72 3b 0d | 09 42 45 47 49 4e 0d 09 |nteger;.|.BEGIN..|
|00001280| 09 6d 65 6e 75 49 44 20 | 3a 3d 20 48 69 57 6f 72 |.menuID |:= HiWor|
|00001290| 64 28 72 65 74 56 61 6c | 29 3b 0d 09 09 69 74 65 |d(retVal|);...ite|
|000012a0| 6d 49 44 20 3a 3d 20 4c | 6f 57 6f 72 64 28 72 65 |mID := L|oWord(re|
|000012b0| 74 56 61 6c 29 3b 0d 09 | 09 0d 09 09 43 41 53 45 |tVal);..|....CASE|
|000012c0| 20 6d 65 6e 75 49 44 20 | 4f 46 0d 09 09 09 6b 41 | menuID |OF....kA|
|000012d0| 70 70 6c 65 4e 75 6d 3a | 0d 09 09 09 09 49 46 20 |ppleNum:|.....IF |
|000012e0| 69 74 65 6d 49 44 20 3d | 20 31 20 54 48 45 4e 09 |itemID =| 1 THEN.|
|000012f0| 7b 68 61 6e 64 6c 65 20 | 74 68 65 20 61 62 6f 75 |{handle |the abou|
|00001300| 74 20 62 6f 78 7d 0d 09 | 09 09 09 09 53 68 6f 77 |t box}..|....Show|
|00001310| 41 62 6f 75 74 09 0d 09 | 09 09 09 45 4c 53 45 09 |About...|...ELSE.|
|00001320| 09 09 09 7b 67 65 74 20 | 74 68 65 20 44 41 27 73 |...{get |the DA's|
|00001330| 7d 0d 09 09 09 09 42 45 | 47 49 4e 0d 09 09 09 09 |}.....BE|GIN.....|
|00001340| 09 47 65 74 49 74 65 6d | 28 47 65 74 4d 48 61 6e |.GetItem|(GetMHan|
|00001350| 64 6c 65 28 6b 41 70 70 | 6c 65 4e 75 6d 29 2c 20 |dle(kApp|leNum), |
|00001360| 69 74 65 6d 49 44 2c 20 | 69 74 65 6d 53 74 72 29 |itemID, |itemStr)|
|00001370| 3b 0d 09 09 09 09 09 72 | 65 66 4e 75 6d 20 3a 3d |;......r|efNum :=|
|00001380| 20 4f 70 65 6e 44 65 73 | 6b 41 63 63 28 69 74 65 | OpenDes|kAcc(ite|
|00001390| 6d 53 74 72 29 3b 0d 09 | 09 09 09 45 4e 44 3b 0d |mStr);..|...END;.|
|000013a0| 09 09 09 6b 46 69 6c 65 | 4e 75 6d 3a 0d 09 09 09 |...kFile|Num:....|
|000013b0| 09 49 46 20 69 74 65 6d | 49 44 20 3d 20 31 20 54 |.IF item|ID = 1 T|
|000013c0| 48 45 4e 09 7b 53 65 6c | 65 63 74 20 46 69 6c 65 |HEN.{Sel|ect File|
|000013d0| c9 7d 0d 09 09 09 09 09 | 53 65 6c 65 63 74 46 69 |.}......|SelectFi|
|000013e0| 6c 65 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |le.....E|LSE.....|
|000013f0| 09 53 65 6e 64 51 75 69 | 74 54 6f 53 65 6c 66 3b |.SendQui|tToSelf;|
|00001400| 09 7b 73 65 6e 64 20 6d | 65 20 61 20 71 75 69 74 |.{send m|e a quit|
|00001410| 20 65 76 65 6e 74 7d 0d | 09 09 45 4e 44 3b 0d 09 | event}.|..END;..|
|00001420| 09 48 69 6c 69 74 65 4d | 65 6e 75 28 30 29 3b 09 |.HiliteM|enu(0);.|
|00001430| 09 7b 74 75 72 6e 20 69 | 74 20 6f 66 66 7d 0d 09 |.{turn i|t off}..|
|00001440| 45 4e 44 3b 0d 09 0d 09 | 50 52 4f 43 45 44 55 52 |END;....|PROCEDUR|
|00001450| 45 20 44 6f 4d 6f 75 73 | 65 44 6f 77 6e 28 63 75 |E DoMous|eDown(cu|
|00001460| 72 45 76 65 6e 74 3a 45 | 76 65 6e 74 52 65 63 6f |rEvent:E|ventReco|
|00001470| 72 64 29 3b 0d 09 56 41 | 52 0d 09 09 77 68 69 63 |rd);..VA|R...whic|
|00001480| 68 57 69 6e 64 6f 77 3a | 09 57 69 6e 64 6f 77 50 |hWindow:|.WindowP|
|00001490| 74 72 3b 0d 09 09 77 68 | 69 63 68 50 61 72 74 3a |tr;...wh|ichPart:|
|000014a0| 09 09 69 6e 74 65 67 65 | 72 3b 0d 09 42 45 47 49 |..intege|r;..BEGI|
|000014b0| 4e 0d 09 09 77 68 69 63 | 68 50 61 72 74 20 3a 3d |N...whic|hPart :=|
|000014c0| 20 46 69 6e 64 57 69 6e | 64 6f 77 20 28 63 75 72 | FindWin|dow (cur|
|000014d0| 45 76 65 6e 74 2e 77 68 | 65 72 65 2c 20 77 68 69 |Event.wh|ere, whi|
|000014e0| 63 68 57 69 6e 64 6f 77 | 29 3b 0d 09 09 63 61 73 |chWindow|);...cas|
|000014f0| 65 20 77 68 69 63 68 50 | 61 72 74 20 6f 66 0d 09 |e whichP|art of..|
|00001500| 09 09 69 6e 4d 65 6e 75 | 42 61 72 3a 09 09 44 6f |..inMenu|Bar:..Do|
|00001510| 4d 65 6e 75 20 28 4d 65 | 6e 75 53 65 6c 65 63 74 |Menu (Me|nuSelect|
|00001520| 20 28 63 75 72 45 76 65 | 6e 74 2e 77 68 65 72 65 | (curEve|nt.where|
|00001530| 29 29 3b 0d 09 09 09 69 | 6e 53 79 73 57 69 6e 64 |));....i|nSysWind|
|00001540| 6f 77 3a 09 53 79 73 74 | 65 6d 43 6c 69 63 6b 20 |ow:.Syst|emClick |
|00001550| 28 63 75 72 45 76 65 6e | 74 2c 20 77 68 69 63 68 |(curEven|t, which|
|00001560| 57 69 6e 64 6f 77 29 3b | 0d 09 09 09 69 6e 44 72 |Window);|....inDr|
|00001570| 61 67 3a 09 09 09 44 72 | 61 67 57 69 6e 64 6f 77 |ag:...Dr|agWindow|
|00001580| 28 77 68 69 63 68 57 69 | 6e 64 6f 77 2c 20 63 75 |(whichWi|ndow, cu|
|00001590| 72 45 76 65 6e 74 2e 77 | 68 65 72 65 2c 20 73 63 |rEvent.w|here, sc|
|000015a0| 72 65 65 6e 42 69 74 73 | 2e 62 6f 75 6e 64 73 29 |reenBits|.bounds)|
|000015b0| 3b 0d 09 09 09 69 6e 44 | 65 73 6b 2c 20 69 6e 43 |;....inD|esk, inC|
|000015c0| 6f 6e 74 65 6e 74 2c 20 | 69 6e 47 72 6f 77 2c 20 |ontent, |inGrow, |
|000015d0| 69 6e 47 6f 41 77 61 79 | 2c 20 69 6e 5a 6f 6f 6d |inGoAway|, inZoom|
|000015e0| 49 6e 2c 20 69 6e 5a 6f | 6f 6d 4f 75 74 3a 0d 09 |In, inZo|omOut:..|
|000015f0| 09 09 09 09 7b 44 6f 20 | 6e 6f 74 68 69 6e 67 7d |....{Do |nothing}|
|00001600| 3b 0d 09 09 65 6e 64 3b | 20 7b 63 61 73 65 7d 0d |;...end;| {case}.|
|00001610| 09 45 4e 44 3b 20 7b 44 | 6f 4d 6f 75 73 65 44 6f |.END; {D|oMouseDo|
|00001620| 77 6e 7d 0d 09 0d 09 50 | 52 4f 43 45 44 55 52 45 |wn}....P|ROCEDURE|
|00001630| 20 44 6f 4b 65 79 44 6f | 77 6e 28 63 75 72 45 76 | DoKeyDo|wn(curEv|
|00001640| 65 6e 74 3a 45 76 65 6e | 74 52 65 63 6f 72 64 29 |ent:Even|tRecord)|
|00001650| 3b 0d 09 56 41 52 0d 09 | 09 63 68 3a 09 09 09 09 |;..VAR..|.ch:....|
|00001660| 63 68 61 72 3b 0d 09 42 | 45 47 49 4e 0d 09 09 63 |char;..B|EGIN...c|
|00001670| 68 20 3a 3d 20 43 48 52 | 28 42 69 74 41 6e 64 20 |h := CHR|(BitAnd |
|00001680| 28 63 75 72 45 76 65 6e | 74 2e 6d 65 73 73 61 67 |(curEven|t.messag|
|00001690| 65 2c 20 63 68 61 72 43 | 6f 64 65 4d 61 73 6b 29 |e, charC|odeMask)|
|000016a0| 29 3b 0d 09 09 0d 09 09 | 49 46 20 42 69 74 41 6e |);......|IF BitAn|
|000016b0| 64 20 28 63 75 72 45 76 | 65 6e 74 2e 6d 6f 64 69 |d (curEv|ent.modi|
|000016c0| 66 69 65 72 73 2c 20 63 | 6d 64 4b 65 79 29 20 3c |fiers, c|mdKey) <|
|000016d0| 3e 20 30 20 54 48 45 4e | 0d 09 09 09 44 6f 4d 65 |> 0 THEN|....DoMe|
|000016e0| 6e 75 20 28 4d 65 6e 75 | 4b 65 79 20 28 63 68 29 |nu (Menu|Key (ch)|
|000016f0| 29 3b 0d 09 45 4e 44 3b | 20 7b 44 6f 4b 65 79 44 |);..END;| {DoKeyD|
|00001700| 6f 77 6e 7d 0d 0d 7b 4d | 61 69 6e 20 50 72 6f 67 |own}..{M|ain Prog|
|00001710| 72 61 6d 20 53 74 61 72 | 74 73 20 48 65 72 65 7d |ram Star|ts Here}|
|00001720| 0d 42 45 47 49 4e 0d 09 | 49 6e 69 74 54 6f 6f 6c |.BEGIN..|InitTool|
|00001730| 62 6f 78 3b 0d 09 49 46 | 20 28 49 6e 69 74 47 6c |box;..IF| (InitGl|
|00001740| 6f 62 61 6c 73 29 20 54 | 48 45 4e 0d 09 42 45 47 |obals) T|HEN..BEG|
|00001750| 49 4e 0d 09 09 49 46 20 | 67 48 61 73 41 70 70 6c |IN...IF |gHasAppl|
|00001760| 65 45 76 65 6e 74 73 20 | 54 48 45 4e 0d 09 09 42 |eEvents |THEN...B|
|00001770| 45 47 49 4e 0d 09 09 09 | 49 6e 69 74 41 45 56 54 |EGIN....|InitAEVT|
|00001780| 53 74 75 66 66 3b 0d 09 | 09 09 53 65 74 75 70 4d |Stuff;..|..SetupM|
|00001790| 65 6e 75 73 3b 0d 09 09 | 09 49 6e 73 74 61 6c 6c |enus;...|.Install|
|000017a0| 53 70 6c 61 73 68 53 63 | 72 65 65 6e 3b 0d 09 09 |SplashSc|reen;...|
|000017b0| 09 0d 09 09 09 57 48 49 | 4c 45 20 4e 4f 54 20 67 |.....WHI|LE NOT g|
|000017c0| 44 6f 6e 65 20 44 4f 0d | 09 09 09 42 45 47 49 4e |Done DO.|...BEGIN|
|000017d0| 0d 09 09 09 09 67 57 61 | 73 45 76 65 6e 74 20 3a |.....gWa|sEvent :|
|000017e0| 3d 20 57 61 69 74 4e 65 | 78 74 45 76 65 6e 74 28 |= WaitNe|xtEvent(|
|000017f0| 65 76 65 72 79 45 76 65 | 6e 74 2c 20 67 45 76 65 |everyEve|nt, gEve|
|00001800| 6e 74 2c 20 30 2c 20 4e | 49 4c 29 3b 0d 09 09 09 |nt, 0, N|IL);....|
|00001810| 09 49 46 20 67 57 61 73 | 45 76 65 6e 74 20 54 48 |.IF gWas|Event TH|
|00001820| 45 4e 0d 09 09 09 09 42 | 45 47 49 4e 0d 09 09 09 |EN.....B|EGIN....|
|00001830| 09 09 43 41 53 45 20 67 | 45 76 65 6e 74 2e 77 68 |..CASE g|Event.wh|
|00001840| 61 74 20 4f 46 0d 09 09 | 09 09 09 09 6b 48 69 67 |at OF...|....kHig|
|00001850| 68 4c 65 76 65 6c 45 76 | 65 6e 74 3a 09 44 6f 48 |hLevelEv|ent:.DoH|
|00001860| 69 67 68 4c 65 76 65 6c | 45 76 65 6e 74 28 67 45 |ighLevel|Event(gE|
|00001870| 76 65 6e 74 29 3b 0d 09 | 09 09 09 09 09 6d 6f 75 |vent);..|.....mou|
|00001880| 73 65 44 6f 77 6e 3a 09 | 09 09 44 6f 4d 6f 75 73 |seDown:.|..DoMous|
|00001890| 65 44 6f 77 6e 28 67 45 | 76 65 6e 74 29 3b 0d 09 |eDown(gE|vent);..|
|000018a0| 09 09 09 09 09 6b 65 79 | 44 6f 77 6e 2c 20 61 75 |.....key|Down, au|
|000018b0| 74 6f 4b 65 79 3a 09 44 | 6f 4b 65 79 44 6f 77 6e |toKey:.D|oKeyDown|
|000018c0| 28 67 45 76 65 6e 74 29 | 3b 0d 09 09 09 09 09 09 |(gEvent)|;.......|
|000018d0| 4f 54 48 45 52 57 49 53 | 45 0d 09 09 09 09 09 09 |OTHERWIS|E.......|
|000018e0| 09 09 7b 44 6f 20 6e 6f | 74 68 69 6e 67 7d 0d 09 |..{Do no|thing}..|
|000018f0| 09 09 09 09 45 4e 44 3b | 20 7b 63 61 73 65 7d 0d |....END;| {case}.|
|00001900| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 45 4e 44 3b |....END;|....END;|
|00001910| 09 0d 09 09 45 4e 44 0d | 09 09 45 4c 53 45 0d 09 |....END.|..ELSE..|
|00001920| 09 09 45 72 72 6f 72 41 | 6c 65 72 74 28 6b 45 72 |..ErrorA|lert(kEr|
|00001930| 72 53 74 72 69 6e 67 49 | 44 2c 20 6b 43 61 6e 74 |rStringI|D, kCant|
|00001940| 52 75 6e 45 72 72 2c 20 | 30 29 3b 0d 09 45 4e 44 |RunErr, |0);..END|
|00001950| 3b 0d 45 4e 44 2e 0d 00 | 00 00 00 00 00 00 00 00 |;.END...|........|
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001980| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00001990| 00 00 10 f9 00 53 03 00 | 00 00 00 00 00 00 00 00 |.....S..|........|
|000019a0| 00 00 00 02 0d 53 79 73 | 74 65 6d 20 46 6f 6c 64 |.....Sys|tem Fold|
|000019b0| 0b 44 72 6f 70 53 68 65 | 6c 6c 2e 70 02 00 00 00 |.DropShe|ll.p....|
|000019c0| 50 61 72 74 53 49 54 78 | 00 00 00 00 00 00 00 00 |PartSITx|........|
|000019d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 a9 80 18 41 00 00 | 00 00 00 00 01 ac 00 c0 |.....A..|........|
|00001a00| 02 80 ff f8 ff ec 00 00 | 00 00 00 00 80 00 00 00 |........|........|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a20| 00 00 16 00 00 00 10 f9 | 10 41 70 70 6c 65 20 4d |........|.Apple M|
|00001a30| 65 6e 75 20 49 74 65 6d | 73 70 01 00 00 00 00 0c |enu Item|sp......|
|00001a40| 00 00 10 fc a4 0c 4e 00 | a4 0c 56 91 00 00 00 00 |......N.|..V.....|
|00001a50| 00 2e 00 08 00 a1 01 a2 | 11 00 00 14 00 00 01 40 |........|.......@|
|00001a60| ff f8 ff f8 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 00 48 00 09 50 72 | 6f 46 6f 6e 74 00 42 45 |...H..Pr|oFont.BE|
|00001a90| 47 49 4e 0d 09 09 49 6e | 69 74 47 72 61 66 28 40 |GIN...In|itGraf(@|
|00001aa0| 74 68 65 50 6f 72 00 06 | 00 04 00 3f 00 45 01 e0 |thePor..|...?.E..|
|00001ab0| 02 5e 00 3f 00 45 01 e0 | 02 5e a5 6c 03 b4 00 00 |.^.?.E..|.^.l....|
|00001ac0| 00 00 00 00 00 00 00 00 | 11 68 01 00 00 00 00 1e |........|.h......|
|00001ad0| 00 3f 00 45 01 e0 02 5e | 00 3f 00 45 01 e0 02 5e |.?.E...^|.?.E...^|
|00001ae0| 00 00 11 68 00 00 00 00 | 00 00 00 00 00 00 00 00 |...h....|........|
|00001af0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 35 |.....n..|.n...>.5|
|00001b00| f2 a0 16 c6 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00001b10| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 03 f0 ff ff 00 00 00 4c | 00 37 ed 38 00 00 00 00 |.......L|.7.8....|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+